home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
library
/
rqtlsusr.lha
/
ReqTools
/
RexxReqTools
/
Examples
/
MultiSelect.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-07-07
|
622b
|
26 lines
/* MultiSelect.rexx
* Demonstrates multiselect
*
* NOTE: `,' is a continuation character for statements that must be entered
* on several source lines!!
*/
NL = '0a'x
call addlib("rexxreqtools.library", 0, -30, 0)
call rtezrequest("This is an example of a" || NL ||,
"multiselect filerequester.", "Show me")
call rtfilerequest(, , "Pick some files", , "rtfi_flags=freqf_multiselect",files)
if files == 1 then
do
say "You selected" files.count "files"
do i=1 to files.count
say " file" i || ":" files.i
end
end
else
call rtezrequest("You picked no files.", " No ")